subroutine load_s(ie, fij, fab, fia, & 
          iijkl, iijka, iabij, iiabj, iabci, iabcd, icore, &
          escf, nvn, non) 
!use common
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none
integer, intent(in) :: nvn, non
real*8, intent(inout) :: escf
real*4, intent(inout) :: ie(*)
real*4, intent(inout) :: fia(*), fab(*), fij(*), iijkl(*)
real*4, intent(inout) :: iijka(*), iabij(*)
real*4, intent(inout) :: iiabj(*), iabci(*), iabcd(*), icore(*)
!
integer nsize, iend, iaabb, i, j
integer iaaaa, ibbbb, iabab, ibaba, iabba, ibaab 
integer, external :: idsymsoc, irpdso
real*8, external :: dnrm2
!
open(unit=77, file='energydatars', form='unformatted')
rewind 77
read(77)(ie(i), i = 1, noa+nva)
read(77) ESCF
close(77)
do i = 1, noa+nva 
   ie(i+noa+nva)=ie(i)
enddo
!
call zeroso(fab, nifvv)
call zeroso(fij, nifoo)
call zeroso(fia, nifvo)
!
!======IJKL======
!
iaaaa = 1
ibbbb = iaaaa + idsymsoc(1, popa, popa, 1, popa, popa, 1) 
iabab = ibbbb + idsymsoc(1, popb, popb, 1, popb, popb, 1)
iend  = iabab + idsymsoc(1, popa, popb, 1, popa, popb, 1)
!
call getallso_s(iijkl(ioi1(2)), 1, 'IJKLABS_')
if(ldebug) then 
call printdnrm2('iijkl', iijkl, 1)
endif
!
!======IJKA======
!
call getallso_s(iijka(ioi2(2)), 1, 'IJKAABS_')
if(ldebug) then 
call printdnrm2('iijka', iijka, 2)
endif
!
!======IABIJ======
!
call getallso_s(iabij(ioi3(2)), 1, 'ABIJABS_')
if(ldebug) then 
call printdnrm2('iabij', iabij, 3)
endif
!
!======IIABJ======
! IIABJ<i,a|b,j> would be sort as (bi,aj)
!
call getallso_s(iiabj(ioi4(1)), 1, 'BIAJAAAS') 
call getallso_s(iiabj(ioi4(2)), 1, 'BIAJABAS') 
call getallso_s(iiabj(ioi4(5)), 1, 'BIAJAABS')
!
!======IABCI======
!
if(ioiabci==0) then 
call getallso_s(iabci(ioi5(2)), 1, 'ABCIABS_')
if(ldebug) then 
call printdnrm2('iabci', iabci, 5)
endif
endif
!
!======IABCD======
!
if(ioiabcd==0) then
call getuhf(iabcd(ioi6(1)), 1, 'ABCDAAS_')
call getuhf(iabcd(ioi6(2)), 1, 'ABCDAB2S')
if(ldebug) then 
call printdnrm2('iabcd', iabcd, 6)
endif
endif
return
end 
